home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_B.d64 / extend basic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  21 lines
  1. 1 data ",=#p@[162][160]a[38_qn?d]c,ty;._f[or0+/8)#*d[g,pp>?rp[162]i[160]i10:p[160]&h[162]$;_@@!p1v/b([162]=
  2. 2 [131] "]@a7jw48closeinew:a\g*8%zoh0closerclosecloseg*x%roh%closerclosecloseg*l%roh0closerclosecloseg*(9&xc(k8f!^(riz<f!^
  3. 3 data "(r[160]s'dkg*8%z?j+48_@*)(k[160]<jc5h_i>2a]#*/@l[162]pi[162];a]';_)#[162]\$d,30/[160](i[160]ly]#][f
  4. 4 [131] "[oi^#>]0?.fjj8fclose\5n0$<fclosex%b0//hme+$newg)close?a($wg*@%n?jnew7(_@&0l[78_('[^%z/b
  5. 5 data "(&[^1v/&en?:#4x^er?:[160]4(_qn/t>#:!yj0p9j_c([162]q]iz5a\gjs%z?jt48[160]b*#(#[160],3@[,
  6. 6 [131] "4.#closeclosepx<c9x,newhuh%.c&.i+0c@x,:i#0cax<jnc4jn;>closef'close*@xn[(8<close&'close*@qd<^kjjjnew
  7. 7 data "0c%y,:-*dsf'@y!djs(e:2(ej[(ej[ly__(8<[160]&'[160]0[160]t89.c6cbyly!8>[160]iz,2if&2iz.2i
  8. 8 [131] "z.;z_/new&'@q!close$close(i(28b4j_u8#=s:#=#!new,)g_jknzjk.(\:/(a_/tp#newh.#rh]#new&eg*-
  9. 9 data "%&[160];[162][160]]$bn+h.caa#3(q@^1n4,[160]l[162]$[p1.<f4,[160]b0$/8qh^c.#gs*-?dr[@\0)_,s?5\*'?
  10. 10 [131]"[v[3\o,o9^7*]m7ohwxh$/cghw88closeb^/v@(0_0/close;closeclosehc6close-(cv/(0u/(@z,(;]/6iz<c$*
  11. 11 data"0jt48[160]l![160]t[160][160][160][160][160]@7jw48[160]@e*-%&[160]6@5:%0k0i4d<[160]03@c2\,8@[160]qs*[162]*[160]12!36\,(1\<l4
  12. 12 [131]"4d2ed$\xsd%/#new$/'+%hnewb%/st&m#new$/#b-ac0c,,close(6\,3+%.closei>3a!closere@g*-%&close8closeclosecloseclose
  13. 13 data"[160]tn@@].b@1oc@]-e@ymf@-]/d--1d--:d-]=d!moe!-_e!=[160]f!m,g!m.g=]@gyncg!]^g!]
  14. 14 [131]"_g-m3h9:xiej0kum;kq]]l!]\m!]&n!m(n!m)n!]-ny=hn!-'o],vo]<woq$_o1n_oi^_o1
  15. 15 data"o-pq$,q]4,q]l,q--dq-mkqy.(s=k7s=>rsa^ts9^vses^t![162]_tq?_t!o_t!r_t]+[160]u9>[160]u
  16. 16 [131]"1o)v9.rvq$&]-4&]]l&]qt)]q!*]]<*]q$0]530]]l0]i^0]1/3]y.close_y^!_yn#_y>%_y.'
  17. 17 data"_y^)_].![160].=q[162]*_[160]#*o##*?_;#2o=#2??#2/a#2_=$2/\$rdb/[162]zb/r4c/6jc/*e]/*u
  18. 18 a[178]1[173]64:m[178]49152:s[178]m:[129]j[178]0[164]17:[135]d$:[129]i[178]1[164][195](d$):z[178][198]([202](d$,i,1))[171]32
  19. 19 a[178]a[172]64:b[178]b[170](z[175]127)[172]a:[139]a[177]1[167][151]m,b[175]255:m[178]m[170]1:a[178]a[173]256:b[178][181](b[173]256)
  20. 20 [130]:[153]j:[130]:[158]s:[131]"]/*$^/2m2t5-3t=m3t=-4tym4t5/)oqtep!&fp]<fp!closeclosecloseclose"
  21.